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PLANO DA OBRA 
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cujo endereço poderá ser facilmente conseguido junto a qualquer jornaleiro 
de sua cidade. Em São Paulo, os endereços são: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo André; e no Rio de Janeiro: avenida 
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gamento, incluindo as despesas postais, deverá ser efetuado ao se retirar a en- 
comenda na agência do Correio. 3. POR TELEX — Utilize o nº (011) 33 670 
DNAP. 
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ções, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 
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E PRINCÍPIOS BÁSICOS DO PAC 
n LIGANDO PONTOS 
E MOVIMENTAÇÃO DA FIGURA 
is EXPANSÃO, CONTRAÇÃO 

E ROTAÇÃO 





À construção de imagens gráficas no 
computador é, quase sempre, um 
processo difícil. O Projeto Assistido 
pelo Computador (PAC) poderá 
simplificar bastante o seu trabalho. 


Existem sistemas destinados a facili- 
tar a elaboração de desenhos cujos com- 
ponentes se repetem muitas vezes. O 
projeto de um supermercado, por exem- 
plo, exige que se distribua, da melhor 
forma possível, uma série de objetos 
idênticos — prateleiras, refrigeradores 
etc. — em uma certa área. Esse tipo de 
sistema, denominado Projeto Assistido 
pelo Computador (PAC), pode se apre- 
sentar com vários níveis de sofisticação. 
Mas, qualquer que seja seu grau de com- 
plexidade, o PAC baseia-se em duas 
operações básicas: traçar retas e remo- 
delar figuras prefixadas. 

Este artigo irá ajudá-lo a construir 
duas versões simples de um PAC. 





TRAÇANDO RETAS 


A técnica que examinaremos agora 
reproduz a maneira mais simples de se Es 180 IF INKEY$="m” THEN LET y= 


executar um desenho com o auxílio de o. ate É 
um lápis e uma régua. | PRN RA 
Peineiro, os 0 traço inicial, De Ro PPRDR O: PAPER O: INK 7: 200 RETURN | 
artir de uma das extremidades mi +: nerd A co A AG io 
Pois, à P ção 15 LET inicioz=80: LET estica=  23677,y-PEEK 23678 
desse traço, desenhamos outra reta e as- 130: LET desenha=210: LET fix 230 RETURN 
sim por diante, sempre ligando a ponta  a=244 250 OVER 0: GOSUB desenha 
do último segmento a um ponto imagi- 17 DRAW 0,175: DRAW 255,0: 255 OVER 1 
nário. No computador, fixamos um DRAW 0,-175: DRAW -255,0 280 RETURN 
ponto na tela e levamos o cursor até a o ep nie 
posição onde um segundo ponto será fi- vu ei te E 
xado. Este irá determinar a reta que de- Pad TARRTOSA FRANGOS 
ve ser traçada. | 60 STOP 10 PCLEAR 8:PMODE 4,5:PCLS: PMOD 
Para facilitar ainda mais o processo, 90 OVER 1 E 4,1:PCLS:SCREEN 1,1 
o computador traça uma reta a cada no- 100 LET x=128: LET y=86 20 V=247:CX=127:Cy=95:X=127:Y=9 
va posição definida pelo cursor, apagan- 115 PLOT x,y RA 
do a anterior. Ao chegar à posição de- 120 RETURN 30 GOSUB 100 
finitiva, o usuário digita algum tipo de 140 IF INKEYS=" " THEN GOSUB 40 FOR K=1 TO 4:PCOPY K+4 TO K: 
código destinado a impedir que o com- 1150 O esenh 50 IF PEEK(336)<>191 THEN 30 
it A e || E emenda Ei : 
reg apague a última linha, deixan- o TF INKEYS="2"” THEN LET x= 60 CLS:END 91 THEI 
O-a fixa na tela. Em seguida, pode-se 1; 100 IF PEEK(345)=V GOSUB 300 
qualquer. x+1 Y=Y-1 


Experimente fazer desenhos com o 170 IF INKEYS="k” THEN LET y= 120 IF PEEK(342)=V AND Y<191 TH 
programa que se segue. v+1 EN Y=Y+1 








130 IF PEEK(343)=V AND X>0 THEN 
K=X-1 

140 IF PEEK(344)=V AND X<255 TH 
EN X=X+1 

200 LINE(CX,CY)-(X,Y), PSET 

210 RETURN 

300 GOSUB 200 

310 FOR K=1 TO 4:PCOPY K TO K+4 
:NEXT 

320 CX=K:CY=Y 

330 RETURN 


ra 


10  HGRZ2 
20 CX = 140:CY = 96:X = CX:T = 
cr 


100 GET AS 

102 IF AS = * * THEN CX - K:CT 
= Y: GOTO 110 

103 HCOLOR= O: HPLOT CX,CY TO 

Hof 

110 IF AS = "Z" AND X > 1 THEN 
X=X-2 

120 IF AS = "X" AND X < 278 TH 
ENK=K+2 

130 IF AS = ".”" AND Y < 190 TH 
EM T=-T+a4Z 

140 IF AS = ";" AND Y > 1 THEN 
Tu T=2 

155 IF AS = "5" THEN STOP 

160 HCOLOR= 3: HPLOT CX,CY TO 
XY 

170 GOTO 100 

10  HGRZ 


20 CX = 140:CY = 96:X = CX:T = 
CY 


100 GET AS 

102 IF AS =” ”* THEN CX = X:CY 
= Y: GOTO 110 

103 HCOLOR= O: HPLOT CX,CY TO 

XY 

110 IF AS = cCHR$S (8) AND X > 


1 THEN X =X - 2 
120 IF AS = CHAS (21) AND X < 
278 THEN X = X + 2 


130 IF AS = CHRS$S (113) AND Y 
< 190 THEN Y = Y+2 

140 IF AS = CHARS (112) AND 7 
>» ) THEN Y = T- 2 

155 IF AS = "SS" THEN STOP 
160 HCOLOR= 3: HPLOT CX,CY TO 
KT 

170 GOTO 100 

10 SCREEN 2 


20 CX=128:CY=96:X=CX:Y=CY 

100 AS=INKEYS:IF AS="" THEN 100 
103 IF AS<>" " THEN LINE (CX,CY 
)J=(X,7),4 ELSE CX=X:CY=T 

110 IF ASC(AS)=29 AND X>2 THEN 

Aek-Z 

120 IF ASC(A$)=28 AND X<255 THE 
N X=X+2 


130 IF ASC(A$S)=31 AND Y<191 THE 
N Y=Y+2 

140 IF ASC(AS)=30 
Y=Y-2 

160 LINE (CX,CY)-(X,Y),11 
170 GOTO 100 


AND Y>1 THEN 


O funcionamento do programa é bem 
simples. Ele fixa um ponto no centro da 
tela e outro em uma posição determina- 
da por quatro teclas — Z (esquerda), X 
(direita), K (acima) e M (abaixo). O AP- 
PLE usa ; (acima), . (abaixo) e S (para 
interromper o programa). Os microcom- 
putadores das linhas MSX e o TK-2000 
utilizam as teclas de controle do cursor 
(flechinhas). 

Uma reta é traçada continuamente 
entre os dois pontos assim determina- 
dos. Quando alcançar sua posição defi- 
nitiva, ela será fixada na tela, bastando, 
para isso, que se pressione a barra de es- 
paço. Você poderá, então, prosseguir 
em outra direção, usando as mesmas 
quatro teclas. 

Digite agora estas linhas adicionais 
para conseguir o efeito de tirar o lápis 
do papel. 


15 LET iânicio=80: LET esticas 
130: LET desenha=210: LET fix 
a=240: LET apaga=210 
17 GOSUB apaga 
144 IF INKEY$S="d” 
apaga: GOTO 150 
310 CLS 
320 DRAW 0,175: DRAW 255,0: 
DRAW 0,-175: DRAW -255,0 
330 GOSUB inicio 
340 RETURN 


105 IF PEEK(339)=191 
4,5: PCLS: PMODE 4,1 
301 AS=INKEYS 

302 AS=INKEYS: IF AS="" THEN 302 
304 1F A$="D” THEN 320 


Cato 


150 
=Y 


o 


THEN  GOSUB 


THEN PMODE 


IF AS = "Dº THEN CX = X:Ci 


IF AS = "D”" THEN CX = X:CY 


Agora, ao pressionar a tecla D, a úl- 
tima linha traçada será apagada. O pon- 
to onde o cursor se encontra será defi- 
nido como inicial. 


| ” à e 
| 





MONTAGEM DE UM DESENHO 


Alguns tipos de PAC apresentam em 
um menu várias figuras previamente de- 
finidas. Se o problema fosse a decora- 
ção de uma casa, por exemplo, o menu 
incluiria os desenhos de móveis, esqua- 
drias e outros elementos, que seriam 
transportados para a tela e ajustados à 
vontade ao projeto do decorador. Para 
tais ajustes, é possível recorrer a amplia- 
ções, reduções e rotações. 

O programa a seguir oferece, em seu 
menu, cinco figuras geométricas. Elas 
podem ser fixadas na tela e manipula- 
das de acordo com as instruções acres- 
centadas após a listagem. 


10 BORDER O: 
OVER O: CLS 
15 LET inicio=100: LET pick= 
270: LET posicao=430: LET mod 
ifica=490: LET seta=390: LET 
desenha=640: LET fixa=700: 

LET limpa=750: LET checa=820: 
LET triang=860: LET quadr=930 
: LET retang=1010: LET pent= 
1090: LET hex=1180 
17 GOSUB limpa 


PAPER O: INK 7: 


40 GOSUB pick 

50 GOSUB posicao 

60 GOSUB modifica 

70 IF INKEY5S<>"q”" THEN GOTO 
40 


BO STOP 

110 OVER O 

120 LET x=30: LET y=50: LET ph 
1=0: LET scal=l 

130 LET mex=120: LET flag=0: 
LET selec=0 

140 LET c=scal*COS (phi) 

150 LET s=scal*SIN (ph1i) 

170 LET tx=32: LET ty=25: 


GOSUB triang 

190 LET tx=70: LET ty=25: 
GOSUB quadr 

210 LET tx=120: 
GOSUB retang 
220 LET tx=180: 
GOSUB pent 

230 LET tx=230: 
GOSUB hex 

240 OVER 1 


LET ty=25: 
LET ty=25: 


LET ty=25: 




















a 


1 


pm 


250 PRINT OVER 1; INK 6;AT 20 
mex/B;""" 

260 RETURN 

300 GOSUB seta 

310 GOSUB checa 

320 IF CODE INKEY5=B THEN LET 

mex=mex-8B 

330 IF CODE INKEY5S=9 THEN LET 

mex=mex+8B 

340 GOSUB seta 
350 IF INKEY5="s” 
ag=1 

360 IF flag=0 THEN GOTO 300 
370 GOSUB seta 

380 RETURN 

400 PRINT 
qmex/B;""” 
410 RETURN 
440 IF mex<d0 THEN LET selec= 
1 


THEN, LET £1 


INK 6; OVER l;AT 20 


450 IF mex>=40 AND mex<70 THEN 
LET selec=2 

460 IF mex>=70 AND mex<150 
THEN LET pelec=3 

465 IF mex>=150 AND mex<180 
THEN LET selec=4á 

470 IF mex>=180 THEN LET sele 
c=5 

4B0 RETURN 

510 IF INKEYS="c” THEN GOSUB 
limpa: GOTO 517 

515 GOSUB desenha 

517 IF INKEYS=" " THEN  GOSUB 
fixa: GOTO 520 

518 GOSUB desenha 

520 LET c=scal*COoS (phi) 

540 LET s=scal*SIN (phi) 

550 IF INKEYS="2z”" THEN LET x= 
x- 3 

560 IF INKEY8="x”" THEN LET x= 


x+3 

570 IF INKEY$="k” THEN LET y= 
v+3 : 

SB0 IF INKEYS="m”" THEN LET y= 
vy-3 


590 IF INKEY3="n” THEN LET sc 
al=scal*1.1 

600 IF INKEY8="5" 
al=scal/1.1 

610 IF INKEY$="h" THEN LET ph 
1=phi+ (6*PI/180) 

620 IF INKEYS="b” THEN LET ph 
i=phi-(6*PI/1B0) 

630 RETURN 
645 LET tx=x: 


THEN LET sc 


LET ty=y 


650 IF selec=1 THEN GOSUB tri 
anq 


660 IF selec=2 THEN GOSUB qua 


670 IF selec=3 THEN  GOSUB ret 


675 IF selec=á THEN GOSUB pen 
680 IF selec=5 THEN  GOSUB hex 
685 FOR n=1 TO 30: NEXT n 

690 RETURN 

700 REM fixa 

710 FOR n=1 TO 100: NEXT n 

714 IF INKEY$="d” THEN OVER 1 
715 IF INKEY$<>"d”" THEN OVER 


717 GOSUB desenha 
720 PRINT AT 20,1;" 
": OVER 1 
730 GOSUB inicio 
740 RETURN 
760 CLS 


770 DRAW 0,175: DRAW 255,0: 


DRAW 0,-175: DRAW -255,0 


780 GOSUB inicio 

790 RETURN 

B20 REM checa 

B30 IF INKEYS="c”" THEN  GOSUB 
limpa 

B40 IF INKEY$="e” THEN STOP 
B50 RETURN 

B60 REM triang 

B70 PLOT  INVERSE l;tx,ty 

BEBO PLOT -7*s+PEEK 23677,6*c+ 
PEEK 23678 

B90 DRAW -6*c+11*85,-5*5-9*c 
900 DRAW 12*c,10*B 

910 DRAW -6*c-11*5,-5*9+9*%c 
920 RETURN 










PR Á: 
f e, 
/ se + 
, $* / g 
a z 
: f 
e cad 


930 REM quadr 

940 PLOT  INVERSE 1l;tx,ty 

950 PLOT 6*c-6*5+PEEK 23677,5* 
g+5*c+PEEK 23678 

960 DRAW -12*c,-10*s 

970 DRAW 12*5,-10*c 

980 DRAW 12*c,10*s 

990 DRAW -12*s,10*c 

1000 RETUAN 

1010 REM retang 

1020 PLOT  INVERSE 1l;tx,ty 

1030 PLOT 12*c-6*5+PEEK 236/7,1 
0*9+5*c+PEEK 23678 

1040 DRAW -24*c,-20*s 

1050 DRAW 12*5,-10*c 

1060 DAAW 24*c,20*s 

1070 DRAW -12*9,10*c 

1080 RETURN 

1090 REM pent 

1100 PLOT  INVERSE l;tx,ty 

1110 PLOT -10*9+PEEK 23677,9*c+ 
PEEK 23678 

1120 DRAW -104c+7*5,-B*p-6*fc 
1130 DRAW 4*%c+13%5,3*s5-11*c 
1140 DBAW 12*c,10*s 








- = Em E | 
| | | | | | | | | 


1150 
1160 
1170 
1180 


DRAW 4*%c-13*8,3*s+11*c 
DRAW -10%c-7*s,-B*s+6*c 
RETURN 

REM hex 

1190 PLOT  INVERSE l;tx,ty 
1200 PLOT -12*5+PEEK 23677,10*c 
+PEEK 23678 

1210 DRAW -10*c+6*s,-8*5-5*c 
1220 DRAW 12*s,-10*c 

1230 DRAW 10*c+6*9,8B*5-5*c 
1240 DRAW 10*c-6*s,B*s+5*c 
1250 DRAW -12*s,10*c 

1260 DRAW -10*c-6*5,-B*a+5*c 
1270 RETURN 


O programa funciona da maneira 
abaixo descrita: 

A sub-rotina início, compreendida 
entre as linhas 110 e 260, define os va- 
lores de algumas variáveis e desenha as 
figuras-padrão na parte mais baixa da 
tela, chamando, para tanto, as sub-ro- 
tinas necessárias. 

Da linha 300 à linha 380, o compu- 
tador lê as teclas que movem a seta pa- 
ra a direita e para a esquerda e a tecla 
S, que faz com que a figura escolhida 
apareça no centro da tela. 

As linhas 400 e 410 (sub-rotina seta) 
reimprimem a seta toda vez que uma te- 
cla é pressionada. 

As linhas 440 a 480 compõem a sub- 
rotina posição. Ela checa a posição da 
seta em relação às figuras e define a va- 
riável “figura”. 

A sub-rotina modifica encontra-se 
entre as linhas 510 e 630. A figura esco- 
lhida é redesenhada de acordo com as 
teclas pressionadas. Ela pode ser movi- 
mentada usando-se as teclas Z, X, K e 
M; Ne J ampliam e reduzem a figura; 
H e B promovem a rotação no sentido 
horário e anti-horário. A barra de espa- 
ço fixa a figura na tela. 

As figuras são desenhadas pela com- 
binação das sub-rotinas desenha, entre 
as linhas 645 e 690, com as sub-rotinas 
que contêm a fórmula de cada uma de- 
las. A variável “figura”” indica ao com- 
putador qual destas será usada. 

A sub-rotina fixa, entre as linhas 710 
e 740, fixa a figura na tela quando a te- 
cla D é apertada. Nas linhas 760 a 790 
está a sub-rotina limpa, que é chamada 
quando se pressiona €. 

A sub-rotina checagem — linhas 820 
a 840 — verifica se a tecla E foi aciona- 
da para interromper o programa. 


10 PCLEAR 8: PMODE 4,5:PCLS: PMOD 
E 4,1:PCLS:SCREEN 1,1 

20 GOSUB 1000 

30 GOSUB 2000 

40 GOSUB 3000 

50 GOSUB 4000 


70 IF INKEY5S<>"Q”" THEN 40 

BO CLS: END 

1000 X=20:Y=131:PH=0:S5C€=1 

1010 ME=122:5T=0:Vl=247:V2=253 
1020 C=5C:5=0:COLOR 5 

1030 X=40:Y=177:GOSUB 5000 

1040 Xx=80:Y=174:GOSUB 5100 

1050 X=120:GOSUB 5200 

1060 X=160:Y=170:GOSUB 5300 
1070 X=200:GOSUB 5400 

1080 FOR K=1l TO 4:PCOPY K TO kK+ 
g4:NEXT 

1090 XK=127:Y=B5 

1100 RETURN 

2000 COLOR U:GOSUB 2500 

2010 AS=INKEY5:GOSUB 4500 

2020 IF AS=CHAS(B) AND ME>232 TH 
EN ME=ME-10 





2030 IF AS=CHR$S(9) AND ME<212 T 
HEN ME=ME+10O 

2040 COLOR 5:GOSUB 2500 

2050 IF AS<>"S”" THEN 2000 

2060 COLOR 5:GOSUB 2500 

2070 RETURN 

2500 DBRAW"BM"+STARS (ME) +”, 190U5N 
CG2F2" 
2810 RETURN 

SL=5:IF ME<192 THEN 
IF ME<152 THEN SL=3 
IF ME<102 THEN SL=2 
IF ME<62 THEN 5SL=l 

RETURN 

4000 ON SL GOSUB 5000,5100,5200 
,5300,5400 

4010 IF PEEK(339)=191 THEN PCLS 
'GOSUB 1000:RETURN 

4020 IF PEEK(345)=Vl THEN FOR K 
=| TO 4:PCOPY K TO K+4:NEXT:RET 
URN 

4030 C=SCc*cos (PH) 


SL=4 


4040 S=SC*SIN(PH) 
4050 IF PEEK(343)=Vl 
4060 IF PEEK(J44)=Vl 
4070 IF PEEK(341)=V] 
4080 IF PEEK(342)=Vl 
4090 IF PEEK(343)=V2 
*1.1 
4100 IF 
Pd E À 
4110 IF PEEK(341)=VZ2 
+ATN(1)/7.5 

4120 IF PEEK(342)=V2 
-“ATN(1)/7.5 

4130 FOR K=l TO 4:PCOPYK+4 TO K 
: NEXT 

4150 IF PEEK(338)=Vl 
N ELSE 4000 

4500 IF AS=CHARS$S (12) THEN PCLS:G 


THEN X=X-1 
THEN X=X+1 
THEN Y=Y-1 
THEN Y=Y+1 
THEN SC=SC 
PEEK (344) =V2 


THEN SC=5C 


THEN PH=PH 


THEN PH=PH 


THEN RETUR 


OSUB 1000 

4510 IF AS="Q" 
4520 RETURN 
5000 LINE(X-7.2*5,Y7-7.2*C)-(X-6 
*C+3.6*5,7+6*5+3.6*C), PSET 

5010 LINE -(X+6*C+3.6*5,Y-6*5+3 
.6*C), PSET 

5020 LINE-(X-7.2*45,Y-7.2*C),PSE 
E 

5030 RETURN 

5100 LINE(XK+6*C-6*5,Y-6*5-6*4C)- 
(X-6*5-6*C, Y+6*5-6*C) , PSET 

5110 LINE - (X+6*S-6*C, Y+6*5+6*C 
)  PSET 

5120 LINE -(X+6*S+6*C, Y+6*C-6*S 
) «PSET 

5130 LINE -(X+6*4C-6*S, Y-6*5-6*C 
) «PSET 

5140 RETURN 

5200 LINE (X+12*C-6*5,Y-6*C-12* 
S)-(X-12*C-6*8,Y-6*C+12*S5), PSET 
5210 LINE -(X-12*4C+6*5, Y+6*C+12 


THEN CLS: END 


“ici iii ãizadljaÀiãiõdZdlitdadõiõdiõdiiiõitdiiçspljdij iiimT 














*5) ,.PSET 

5220 LINE -(X+12*C+6*5, Y+6*C-12 
*5) .PSET 

5230 LINE - (X+12*C-6*5,Y-6*C-12 
*58) ,PSET 

5240 RETURN 

5300 LINE (X-10.2*5,Y-10.2*C)-( 
X-9.B*C-3.2*8,Y-3.2*C+9.5*5),PS 
ET 

5310 LINE -(X-6*C+10.2*5,Y+10.2 
*C+6*5) , PSET 

5320 LINE -(X+6*C+10.2*5,Y+10.2 
*C-6*5) ,PSET 


5330 LINE -(X+9.8*C-3.2*45,Y-3.2 
*C-9.8*5) , PSET 

5340 LINE -(X-10.2*8,Y-10.2*C), 
PSET 

5350 RETURN 

5400 LINE (X-12*5,Y-12*C)-(X-10. 


4*C-6*5,Y-6*C+10.4*5), PSET 

5410 LINE -(X-10,.4*C+6*S5, Y+6*%C+ 
10.4*8), PSET 

5420 LINE -(X+12*S5,Y+12*C), PSET 
5430 LINE -(X+10.4*C+6A5, Y+6*C- 
10.4*5), PSET 

5440 LINE - (X+10.4*%C-6*4S8,Y-6*4C- 
10.4*5), PSET 

5450 LINE -(X-12*8,Y-12*C), PSET 
5460 RETURN 









10 HGRZ 
20 GOSUB 1000 

40 GOSUB 2000 

50 GOSUB 3000 

60 GOSUB 4000 

70 coTO 20 

1000 HCOLOR= 3:X = 20:Y = 131: 


| | 
| | 
| 
| | 
| | 
| | 


PH = 0:5C = 1 
1010 ME = 122 


1020 €C = SC:5 = 0 

1030 X = 40:Y = 177: GOSUB 5000 
1040 X = 80:Y = 174: GOSUB 5100 
1050 X = 120: GOSUB 5200 

1060 X = 160:Y7 = 170: GOSUB 530 
0 

1070 X = 200: GOSUB 5400 

1090 X = 127:7 = 85 

1100 RETURN 

2000 HCOLOR= 3: GOSUB 2500 
2005 GET AS 

2010 HCOLOR= O: GOSUB 2500 
2020 IF AS = "Z” AND ME > 32 T 
HEN ME = ME - 10 

2030 IF AS = "X” AND ME < 212 
THEN ME = ME + 10 

2050 IF AS < > "S8* THEN 2000 
2070 RETURN 

2500 HPLOT ME,190 TO ME,182 TO 
ME - 5,185: HPLOT ME,182 TO ME 
+ 5,185 

2510 RETURN 

3000 SL = 5: IF ME < 192 THEN 5 
L= 4 

3010 IF ME < 152 THEN SL = 3 
3020 IF ME < 102 THEN SL = 2 
3030 IF ME < 62 THEN SL = 1 
3040 RETURN 

4000 HCOLOR= 3: ON SL GOSUB 50 


00,5100,5200,5300,5400 




















4010 GET AS 

4015 HCOLOR= O: ON SL GOSUB 50 

00,5100,5200,5300,5400 

4020 IF AS =" *" THEN HCOLOR= 
3: ON SL GOSUB 5000,5100,5200, 

5300,5400: RETURN 


4030 €C = SC * cos (PH) 

4040 S = SC * SIN (PH) 

4050 IF AS = "Z” THEN X = X - 
3 

4060 IF AS = "Xº THEN X = X + 
3 

4070 IF AS = ";" THEN T = T- 
3 

4080 IF AS = "." THEN Y = T+ 
3 

4090 IF AS = "M” THEN SC = SC 
* 1.2 

4100 IF AS = "Nº THEN SC = SC 
! Lod 


4110 IF AS = "K” THEN PH = PH 


+ ATN (1) / 7.5 


4120 IF AS = "Lº THEN PH = PH 

- MEN CI) Ff E.5 

4140 IF AS = "C” THEN GOTO 10 

4145 IF AS = "F” THEN TEXT 

END 

4150 GoTo 4000 

5000 HPLOT X = 7.2 78,7 - 7.2 
"TORTO" C*+ IO] BT + 
6*B+HIGACTOXA+ E*CA+ 
1,68% SL Grs IA 

5010 HPLOT X+ 6 *C+ 3.6 * 8 
Teo 6HEAAOTC TO X= 72 
Et 72" 

5030 RETURN 

5100 HPLOT X + 6 *C - 6 *5, 

O x 6 * 








6% CT+67C-6*5 TO R+ 
tod a Ss DS RR = a TO Ro 
C 
5140 RETURN 
5200 HPLOT X+ 12 *C - 6 *5, 
T-E7C-122"4 BT X=I1Z* 
Ce "Br-oro+ 12 * BETO 
E=<)IRACTORr DIO” Cr 
12 *85 


le "Cro Rdks, 

4 8 TO X + 12 * 
çÇ<-lANrET 
MÃO” C- 
12 * 8 

5240 RETURN 

5300 HPLOT X - 10.2 * 8S,Y - 10 
COST - ITA 
T-32"C+9BrETO XX - 6 
*C+10,2* 5,7 + 10,2 * C+ 

6*38 

5310 HPLOT X - 6 * C+ 10.2 * 

8,7 + 10.2 *C+6TETOK+O 
+ Ad.d BT + IU.d Aos 

G*5TOX+O.BTNC- 3.2" EB, 

E=3274- 0,8 "3 

5320 HPLOTX + 9.8 TG - 3.2 * 
BT IAC ANSA - 
10,2 * 98,7 - 10,2 *€C 

5350 RETURN 

HPLOT X - 12 * 8,%Y 

- 6 * 


5400 je 
CTOX- 10.4 *4C St - 
6 *C+ 10,4 * SS TO RX - 10,4 * 
CroOXaATrArC+ 10,4 * 5 
TO X + iz ASIA IZ NC 
5410 HPLOT X + 12 * 8,7 + 12 * 
CT X+ 0,4 *C+eOraT+ 
GE*XC>-10.4 7" 5 TD AAA ” 
C+6*5,1-67C- 10,4 "5 
5420 HPLOT X+ 10,4 * C - 6 * 
BI=67"C- 0478 %MWãX=I 


2*8,7-12*%€ 
5460 RETURN 


LO] 


O programa do TK-2000 é igual ao 
do Apple, com estas modificações: 


2020 IF AS = CHR$ (8) AND ME 

> 32 THEN ME = ME - 10 

2030 IF A$ = CHR$ (21) AND ME 
< 212 THEN ME = ME + 10 

4050 IF AS = CHR$ (8) THEN X 

=Xx-3 

4060 IF AS = CHR$ (21) THEN X 
-=X+3 

4070 IF AS = CHR$ (112) THEN 

Y=Y-3 

4080 IF AS = CHR$ (113) THEN 

Y=Y7+3 

10 SCREEN 2 


20 GOSUB 1000 

40 GOSUB 2000 

50 GOSUB 3000 

60 GOSUB 4000 

70 GOTO 20 

1000 COLOR 14:X=20:Y=131:PH=0:S 
C=1 


ME=122 
C=8C:8=0 

X=40:Y=177:GOSUB 5000 
X=80:Y=174:GOSUB 5100 
X=120:GOSUB 5200 
X=160:7=170:GOSUB 5300 
X=200:GOSUB 5400 
X=127:Y=85 

RETURN 

COLOR 14:GOSUB 2500 
AS=INKEYS:IF AS="" THEN 20 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1090 
1100 
2000 
2005 
05 
2010 COLOR 4:GOSUB 2500 

2020 IF AS=CHRS(29) AND ME>32 T 
HEN ME=ME-10 

2030 IF AS=CHRS (28) AND ME<212 
THEN ME=ME+10 
2050 IF AS<>"S” 
2070 RETURN 
2500 DRAW"BM"+STRS (ME) +", 1I90USN 

G2F2º 

2510 RETURN 

3000 SL=5:IF ME<192 THEN SL=4 
3010 IF ME<152 THEN SL=3 

3020 IF ME<102 THEN SL=2 

3030 IF ME<62 THEN SL=1 

3040 RETURN 

4000 COLOR 14:0N SL GOSUB 5000, 
5100,5200,5300,5400 

4010 AS=INKEYS:IF AS="" THEN 40 
10 

4015 COLOR 4:0N SL GOSUB 5000,5 
100,5200,5300,5400 

4020 IF A$=" " THEN COLOR 14:0N 
SL GOSUB 5000,5100,5200,5300,5 
400: RETURN 

4030 C=5C*CoOS (PH) 
4040 S5=SC*SIN(PH) 

4050 IF AS=CHR$(29) 
4060 IF AS=CHR$S (28) 

4070 IF AS=CHRS (30) 

4080 IF AS=CHRS (31) 

4090 IF AS="M” THEN 
4100 IF AS="N” THEN 

4110 IF AS="K” THEN 
Rr ra, 

4120 IF 
147.5 

4140 IF 

4145 IF 

D 

4150 GOTO 4000 

5000 LINE (X-7.2*5,Y-7.2*C)-(X- 

6*C+3.6*5,Y+6*5+3.6*C) 

5010 LINE -(X+6*C+3.6*5,7-6*5+3 
.6*C) 

5020 LINE -(X-7.2*8,Y-7.2*C) 

5030 RETURN 

5100 LINE (X+6*C-6*5,Y-6*5-6*C) 
- (X-6*5-6*C, Y+6*5-6*C) 

5110 LINE -(X+6*5-6*C, Y+6*S+6*C 


THEN 2000 


THEN X=X-3 
THEN X=X+3 
THEN Y=Y-3 
THEN Y=Y+3 
SC=5C*1.1 

SC=SC/1.1 

PH=PH+ATN (1 
AS="L” THEN PH=PH-ATN(1 
CLS:GoTo 20 
COLOR 15:EN 


AS="C" 
Ag="F" 


THEN 
THEN 


) 
5120 LINE -(X+6*5+6*C, Y+6NC-6*S 


) 

5130 LINE -(X+64C-6*8, Y-6*5-6*C 
) 

5140 RETURN 

5200 LINE (X+12*C-6*5,Y-6*C-12* 
9) = (X-12*C-6*S, Y-6*C+12*5) 

5210 LINE -(X-12*C+6*S, Y+6*C+12 
*8) 

5220 LINE -(X+12*C+6*5, Y+6*C-12 
*8) 


5230 LINE -(X+12*C-6*5,Y-6*C-12 
*8) 

5240 RETURN 

5300 LINE (X-10.2*5,Y-10.2*C)-( 
X-9.84C-3.2*8,7-3.2*C+9,8*8) 


5310 LINE -(X-6*C+10.2*5,Y+10.2 
*C+6*5) 

5320 LINE -(X+6*C+10.2*S, Y+10.2 
*C-6*58) 

5330 LINE -(X+9.8*C-3.2*5,7-3.2 
RC-9.8*8) 

5340 LINE -(X-10.2*5,Y-10.2*C) 


5350 RETURN 
5400 LINE (X-12*5,Y7-12*C)-(X-10 
.4*C-6*S, Y-6*C+10.4*5) 


5410 LINE -(X-10.4*C+6*5, Y+6*C+ 
10.4*5) 

5420 LINE -(X+12*85, Y+12*C) 

5430 LINE -(X+10.4*C+6*5, Y+6*C- 
10.4*5) 

5440 LINE -(X+10.4*C-6*5, Y-6*C- 
10.4*8) 

5450 LINE -(X-12*S,Y-12*C) 


5460 RETURN 

A inicialização encontra-se entre as 
linhas 1000 e 1100, onde uma série de 
variáveis são definidas. As linhas 2000 
a 2070 compreendem a sub-rotina encar- 
regada de selecionar a figura. A seta é 
movimentada para a direita e para a es- 
querda através das teclas de controle (o 
Apple usa as mesmas teclas do progra- 
ma anterior). 

As linhas 3000 a 3040 identificam a 
figura que está sendo apontada pela se- 
ta, de acordo com a variável ME. Ao 
pressionar a tecla S, a figura escolhida 
aparecerá no centro da tela. 

A sub-rotina de desenho situa-se en- 
tre as linhas 4000 e 4150. A linha 4000 
desvia o programa para a sub-rotina que 
contém as instruções para desenhar a fi- 
gura escolhida. A linha 4020 fixa a fi- 
gura na tela se a barra de espaço for 
acionada. 

As linhas 4090 e 4100 verificam se as 
teclas M e N foram pressionadas, am- 
pliando ou reduzindo o desenho. A op- 
ção final é a rotação — linhas 4110 e 
4120. As teclas K e L controlam a dire- 
ção (para a esquerda e para a direita) em 
que será executada. 

Ao pressionar € (<CLEAR> no 
TRS-Color), a tela será apagada, fican- 
do pronta para o desenho seguinte. 

As sub-rotinas restantes contêm ins- 
truções para a construção das cinco fi- 
guras. As linhas 5000 a 5030 desenham 
o triângulo; as linhas 5100 a 5140 tra- 
çam o quadrado; as linhas 5200 a 5240, 
o retângulo; as linhas 5300 a 5350, o 
pentágono e as linhas 5400 a 5460, o he- 
xágono. 

Tome cuidado para que seu desenho 
não saia da tela, o que poderia acarre- 
tar a interrupção do programa e uma 
mensagem de erro. Para interromper o 
programa, pressione F. 

















MO 


EFEITOS SONOROS 


COMPLEXOS 


Os usuários do Apple e do TK-2000 
já aprenderam a utilizar rotinas em 
código de máquina para produzir sons 
em seu micro. Verão agora como 
criar efeitos sonoros mais complexos. 


No artigo da página 712, explicamos 
como contornar as limitações dos micros 
das linhas Apple e TK-2000 para que 
produzam sons. Examinaremos aqui a 
criação de efeitos mais sofisticados. 

Com a rotina que se segue obtemos 
um ruído que pode ser utilizado como 
“tiro laser” em um jogo de ação. O tru- 
que consiste em combinar um som que 
vai se tornando mais agudo com outro 
que fica cada vez mais grave. 


10 ORG B0O 

20 LDA 45800 

30 STA SFF 

40 LDA 4500 

50 STA SFE 

60 LOOP LDA 4300 
70 STA 5C030 

80 LDX SFF 

90 PAUSEA NOP 
100 NOP 
110 NOP 
120 NOP 
130 DEX 
140 BNE 
150 INC 
160 LDA 
170 STA 5C030 
180 LDX SFF 
190 PAUSEB NOP 
200 NOP 
210 NOP 
220 NOP 
230 DEX 
240 BNE 
250 DEC 
260 BEQ 
270 JMP 
280 FIM 
290 END 


[| 


Para o mini-Assembler do TK-2000, 
a listagem é a seguinte: 


0320- LDA 4300 
0322- STA SFF 


PAUSEA 
SFF 
+300 


PAUSEB 
SFE 
FIM 
LOOP 
ARTS 





0324- LDA 1500 
0326- STA SFE 
0328- LDA 4500 
032A- STA 8C030 
032D- LDX SFF 
032F- NOP 

0330- NOP 

0331- NOP 

0332- NOP 

0333- DEX 

0334- BNE 5032F 
0336- INC SFF 
0338- LDA 4500 
033A- STA 35C030 
033D- LDX SFF 
033F- NOP 

0340- NOP 

0341- NOP 

0342- — NOP 

0343-  DEX | 
0344- BNE 8033F 
0346- DEC SFE 
0348- BEQ 8034D 
034A- JMP 30328 
034D- RTS 


Depois de estabelecido o endereço 
inicial, as quatro primeiras instruções 
colocam o valor zero nas posições $FF 
e SFE, que servirão como contadores. 
O registro A é usado para isso, porque 
não há no chip 6502 uma instrução que 
coloque um certo valor diretamente em 
um endereço de memória. 


EMISSÃO DE SOM 


A seguir, O registro A é novamente 
carregado com zero e a instrução STA 
$C030 produz um movimento no cone 
do alto-falante. 

O valor contido na posição de memó- 
ria $FF é, então, colocado no registro 
X e as seis linhas seguintes provocam 
uma pausa com duração proporcional 
àquele valor. Como no programa ante- 
rior, a linha 130 encarrega-se de subtrair 
uma unidade de X e, enquanto este con- 
tador não tiver sido reduzido a zero, O 
laço entre as linhas 90 e 140 vai sendo 
repetido. 

Após essa pausa, a instrução INC 
$FF soma a unidade ao conteúdo da po- 
sição $FF, a fim de que a pausa seguin- 
te seja maior. 

As linhas 160 e 170 produzem nova- 
mente um movimento do alto-falante e, 
logo depois, as linhas 190 a 240 provo- 


COMO OBTER O EFEITO 
DE UM “TIRO LASER” 
MOVIMENTOS DO CONE 
PAUSAS 

CONTROLE DA DURAÇÃO 





= 


cam nova pausa, agora com duração 
proporcional ao conteúdo de $FE. 

Ao contrário do que aconteceu na li- 
nha 150, a instrução DEC $FE subtrai 
uma unidade do conteúdo da posição 
$FE, fazendo com que, na próxima vez, 
a pausa seja menor. 


FIM DA ROTINA 


A instrução BEQ FIM termina o pro- 
grama quando o conteúdo de $FE for 
reduzido a zero. O final da rotina ocor- 
re com o desvio para o rótulo FIM, que 
contém a instrução RTS, Enquanto 
houver um número maior que zero em 
SFE, a instrução JMP LOOP faz o la- 
co entre as linhas 60 e 270 ser repetido. 


PAUSEA E PAUSEB 


Como podemos observar, o programa 
produz movimentos do alto-falante — e, 
portanto, emite som em duas oca- 
siões: nas linhas 70 e 170. Entre esses 
dois eventos ocorrem duas pausas: uma 
que é rotulada PAUSEA e a outra, PAU- 
SEB. PAUSEA é controlada por $FF e 
vai aumentando de tamanho; PAUSEB, 
por $FE e vai diminuindo de tamanho. 
Combinam-se, dessa maneira, dois sons, 
um com fregiiência crescente e outro 
com frequência decrescente. 

Na realidade, o laço PAUSEA com- 
pleta 256 voltas na primeira vez, dando 
uma volta a mais cada vez que é executa- 
do. Como o contador $FF só usa um by- 
te, 256 é representado pelo número zero, 
e0 + 1 = 1. Assim, PAUSEA dá uma 
volta na segunda execução e uma volta 
a mais a cada nova execução. Já PAU- 
SEB começa com 256 voltas e vai dan- 
do uma volta a menos a cada execução. 


CONTROLE DA DURAÇÃO 





Para diminuir a duração do efeito so- 
noro, basta retirar alguns comandos 
NOP. Retire quantidades iguais de ca- 
da laço de pausa, pois, do contrário, o 
timbre do som será alterado. Quem es- 
tiver usando o mini-Assembler precisa- 
rá recalcular os desvios. 















ANNE NE mio MOO 


DAS GAINMONIAS 


Nenhuma cena à beira-mar estaria 
completa sem uma revoada de gaivotas. 
Os próprios efeitos sonoros do jogo — 
que adicionaremos mais tarde ao pro- 
grama — indicam a chegada das aves, 
que voarão pelo céu como parte do ce- 
nário de fundo. 

Você deve estar pensando que este é 
um detalhe desnecessário, já que não in- 
terfere no desenvolvimento da aventu- 
ra. Mas, certamente, são detalhes desse 
tipo que diferenciam um programa ama- 
dor de um comercial. O tempo dos jo- 
gos em que dois bloquinhos rebatiam 
uma bola de tênis terminou. 

Infelizmente, na versão de Avalanche 
para o TRS-Color, não há gaivotas pois 
sua inclusão sobrecarregaria O jogo com 
tabelas adicionais. 












































10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
BO REM 
90 REM 
100 REM 
110 REM 
120 REM 
O 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 


org 58751 
qui ld a, (57349) 
inc à 

res 3,a 

ld (57349),a 
ld bc,57192 
[o + | 

jr c,opt 

ld bc,57208 
got ld a,4é6 
ld h1l,42 
push bc 
call print 
inc hl 

call print 
pop bc 

ld h1,68 
call print 
inc hl 

call print 
ret . 

org 58217 
print * 


PREPARANDO O VÔO 


A posição de memória 57349 
a chamada variável de atraso da gaivo- 
ta, Essa variável impede que as gaivo- 
tas batam as asas muito rapidamente. O 





Enquanto Willie tenta escapar 

dos perigos que o cercam, gaivotas 
levantam vôo e pairam no céu, 
acrescentando à aventura um detalhe 
digno de um produto comercial. 





atraso completo é carregado e incremen- 
tado no acumulador A. 

Para que as asas se movimentem pa- 
ra cima e para baixo adequadamente, O 
valor da variável de atraso deve oscilar 
num limite bem restrito. A instrução res 
3,a ajusta O bit 3 do acumulador com 
o valor O. 

No momento em que a variável de 
atraso for incrementada com um valor 
superior a 7 — o bit 3 teria, então, o va- 
lor 1 —, o programa volta a ajustá-la 
com o valor 0. O resultado do incremen- 
to ou do ajuste para zero é novamente 
armazenado no endereço 57349. 

Para fazer com que a ave pareça es- 
tar batendo as asas, colocamos na tabela 
de dados padrões de bits para duas gai- 
votas — uma com as asas para cima e 
outra com as asas para baixo. Os ende- 
reços iniciais dos dois conjuntos de da- 
dos são, respectivamente, 57192 e 
$7208. Cada gaivota compreende con- 
juntos de dezesseis bytes de dados. 

O par de registros BC é carregado 
com o endereço do primeiro desses dois 
blocos de padrões ou dados. Em segui- 
da, o conteúdo do acumulador — onde 





















o atraso da gaivota ainda está armaze- 
nado — é comparado com o número 4. 

Uma instrução cp corresponde a uma 
subtração cujo resultado não foi arma- 
zenado. No nosso programa, o número 
4 é subtraído do conteúdo do acumula- 
dor, mas não se armazena o resultado 
em nenhum lugar. Essa operação tem a 
função exclusiva de ajustar os indicado- 
res ou balizas. 

Em consegiiência, se o atraso da gai- 
vota for menor do que 4 — ou seja, O, 
|, 2 ou 3 — o indicador denominado 
carry é ajustado com 1. Se o atraso da 
gaivota for maior do que 4, carry tem 
o valor O. 

A instrução jr e faz o processador sal- 
tar para o rótulo que a acompanha 
quando carry está ajustado com o va- 
lor 1. Assim, se o atraso da gaivota for 


menor do que 4, o processador pula a 


seguinte e o endereço 7192 


permanece no par de registros BC. Mas, 
se o atraso da gaivota for maior ou igual 
a4 — e carry tiver, portanto, o valor 
dci pa 
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cial dos padrões da segunda gaivota na 
tabela de dados. 


DECOLAGEM 


O acumulador A é carregado com 46, 
para que a cor da gaivota seja ajusta- 
da, e o par HL recebe a posição na tela 
da primeira gaivota, 42. 

O conteúdo do par BC é então guar- 
dado na pilha. Para complicar um pou- 
co mais, temos duas gaivotas tanto na 
tela como na tabela de dados. A tabela 
contém os padrões de uma gaivota com 
as asas para cima e outra com as asas 
para baixo, enquanto a tela exibe a mes- 
ma gaivota, impressa duas vezes em dois 
lugares diferentes. Como se utiliza uma 
só imagem, as gaivotas batem asas em 
sincronia. 

Por esse motivo, o apontador de da- 
dos é preservado na pilha, enquanto a 
primeira gaivota está sendo impressa na 
tela, A rotina print incrementa esse 
apontador automaticamente durante a 
impressão dos dezesseis bytes de dados 
que são necessários para completar o de- 


VARIÁVEL DE ATRASO 
COMO FAZER A GAIVOTA 
BATER ASAS 

DECOLAGEM 


DEFINIÇÃO DO VÔO 


senho de uma gaivota. Ao ser chama- 
da, a rotina print coloca na tela oito 
bytes de dados seguindo a posição ini- 
cial definida pelo par de registros BC. 
O conteúdo de BC é incrementado a ca- 
da byte impresso. 

Depois da impressão da primeira par- 
te da gaivota, o par HL é incrementado 
para apontar a posição na tela imedia- 
tamente à direita. Em seguida, a rotina 
print é chamada outra vez. 

Quando os dois blocos tiverem sido 
impressos, a primeira gaivota estará 
completa. O computador passa, então, 
à impressão da segunda. Para isso, O 
apontador de dados é recuperado da pi- 
lha e o par HL é ajustado para apontar 
a nova posição de impressão. Feitos es- 
ses ajustes, a rotina print é chamada ou- 
tra vez. Todo o processo já descrito se 
repete, até que se complete o desenho da 
segunda gaivota. 
















A listagem que você digitará a seguir 
não faz parte do programa principal. 
Este é composto por quatro rotinas, três 
das quais já publicadas. Apresentare- 
mos a última delas no artigo que encer- 
ra a série Avalanche. 

Este programa e todos os que o se- 
guem, a partir do presente artigo, cons- 
tituem sub-rotinas isoladas que irão ser 
chamadas pela quarta rotina do progra- 
ma principal. Como esta será montada 
na sequência da terceira rotina, a lista- 
gem que fornecemos aqui começa no en- 
dereço — 11380. Deixamos, assim, um 
espaço reservado para a última parte do 
programa principal do jogo. 

Esta rotina, além de colocar as gai- 
votas na tela, faz com que elas batam 
as asas para cima e para baixo usando 
só duas estruturas de animação, 


10 org 54lhH6 

20 qul ld a, (-5206) 
30 inc a 

aú res 3,a 


50 ld (-5206) ,a 
&0 ld b,28 

7O cp 4 

BO JE c,ogpt 

90 lã b,32 

100 opt puah bc 
ld a,b 

ld h1, (62407) 
130 ld de,42 
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140 add hl,de 
150 push hl 
160 push af 
170 call 77 
180 pop af 
190 pop hl 
200 anc hl 
210 add a,2 
220 call 77 
230 pop bc 
240 ld a,b 
250 ld h1, (62407) 
260 ld de,68 
270 add hl,de 
280 push hl 
290 push af 
300 call 77 
310 pop af 
320 pop hl 
330 inc hl 
340 add a,?2 
350 call 77 
360 ret 

370 end 


DEFINIÇÃO DO VÔO 





A posição de memória — 5206 con- 
tém a variável de atraso da gaivota, que 
tem a função de impedir que as aves ba- 
tam as asas muito rapidamente. O atra- 
so completo é carregado e incrementa- 
do no acumulador A. 

Para que as asas se movimentem pa- 
ra cima e para baixo de maneira adequa- 
da, o atraso da gaivota deve oscilar nu- 
ma faixa restrita. À instrução res 3,a se 
encarrega disso, ajustando o bit 3 do 














acumulador com o valor O. Analisando 
essa instrução, verifica-se que a variá- 
vel de atraso será reajustada ao valor O 
sempre que ela for incrementada com 
um valor superior a 7. Nesse caso, o re- 
sultado do incremento e do ajuste para 
zero é armazenado novamente no ende- 
reço — 5206. 

Para dar a impressão de que a gai- 
vota está batendo as asas, utilizamos pa- 
drões de bits para duas gaivotas — uma 
com as asas para cima e outra com as 
asas para baixo. 

Os códigos dos padrões para a pri- 
meira gaivota são 28 e 30, e para a se- 
gunda, 32 e 34. Cada padrão compreen- 
de oito bytes de dados e cada gaivota 
possui dois padrões. 

O registro B é carregado com o códi- 
go do primeiro padrão da primeira gai- 
vota. Depois, o conteúdo do acumula- 
dor — onde ainda está o atraso da gai- 
vota — é comparado com o número 4. 

Uma instrução cp equivale a uma 
subtração cujo resultado não foi arma- 
zenado. O número 4 é subtraído do con- 
teúdo do acumulador, mas não se arma- 
zena o resultado em nenhum lugar. Es- 
sa operação tem a função exclusiva de 
ajustar os indicadores ou balizas (flags). 
Se o atraso da gaivota for menor do que 
4, o indicador chamado carry é ajusta- 
do com o valor 1; se for maior ou igual 
a 4, carry não é ajustado. 

A instrução jr, c,gpt faz o processa- 
dor saltar para o rótulo gpt se carry foi 
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ajustado com 1. Assim, se o atraso da 
gaivota for menor do que 4, o proces- 
sador salta a instrução seguinte e o có- 
digo 28 permanece em B. 

Se o atraso da gaivota for maior ou 
igual a 4, carry não foi ajustado e o sal- 
tonão ocorre. O registro B é, então, car- 
regado com o código 32, correspondente 
ao primeiro padrão da segunda gaivota 
na tabela de padrões. 


DECOLAGEM 





A rotina gpt — incumbida de colo- 
car as duas gaivotas na tela — começa 
armazenando na pilha o código do pri- 
meiro padrão da gaivota que está sen- 
do impressa. Isso é feito porque, como 
temos que imprimir a gaivota duas ve- 
zes, esse código sofrerá alteração duran- 
te a primeira impressão. 

Para imprimir uma gaivota na tela, 
recorremos à rotina 77 da ROM, já uti- 
lizada em partes anteriores do jogo. An- 
tes, precisamos ajustar seus parâmetros. 
O acumulador deve conter o código do 
padrão e o par de registros HL, o ende- 
reço na tabela de nomes onde vamos co- 
locá-lo — ou seja, a posição de impres- 
são na tela. 

O código do primeiro padrão da gai- 
vota é transferido do registro B para o 
acumulador. Em seguida, o par HL é 
carregado com o endereço inicial da ta- 


bela de nomes, que está armazenado nos, 


7) ada 
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endereços 62407 e 62408 da RAM. Adi- 
cionando-se o número 42 a esse endere- 
ço, por meio do par de registros DE, ob- 
tém-se a posição na tela da metade ini- 
cial da primeira gaivota. 

Os conteúdos do par de registros HL 
e do acumulador são preservados na pi- 
lha, uma vez que podem ser alterados 
pela rotina 77. Esta é chamada logo em 
seguida e imprime a metade esquerda da 
primeira gaivota. 

O apontador da posição na tela é re- 
cuperado da pilha, voltando ao par HL, 
enquanto o código do padrão retorna ao 
acumulador. Em seguida, o apontador 
em HL é incrementado para indicar a 
posição de impressão da metade direi- 
ta. O número 2 é então adicionado ao 
acumulador, que passa a conter o códi- 
go do padrão da segunda metade. Quan- 
do a primeira gaivota já está na tela, a 
rotina 77 é chamada. 

O código do padrão da metade es- 
querda da gaivota é recuperado da pi- 
lha para o registro B, uma vez que essa 
mesma figura será novamente impressa 
em outra posição. | 

O procedimento é análogo ao já des- 
crito, só que a adição do número 68 ao 


endereço inicial da tabela de nomes em 
HL indica a posição de impressão da se- 
gunda gaivota. A rotina 77 é chamada 
duas vezes, uma para cada metade, e O 
endereço da segunda gaivota se comple- 
ta na tela também. 





TESTANDO 


Para testar a listagem aqui apresen- 
tada, espere a publicação da última ro- 
tina da série Avalanche. Se quiser se an- 
tecipar, digite uma pequena rotina em 
código de máquina que chame a rotina 
deste artigo várias vezes, com um peque- 
no atraso entre cada chamada. Tal atra- 
so pode ser provocado por um laço 
qualquer. Depois disso, carregue a ta- 
bela de padrões e veja as gaivotas ba- 
tendo suas asas. 
















SONS E RUÍDOS 





NO TR5-80 


Muitos tipos de jogos e outros pro- 
gramas se tornarão bem mais interessan- 
tes e “profissionais” se você adicionar 
a eles música e efeitos sonoros, como 
ruídos de tiros, explosões, disparos de 
canhões de laser e coisas do gênero. Na 
verdade, esta é uma das razões pelas 
quais a maioria dos microcomputado- 
res mais modernos tem comandos espe- 
ciais em BASIC para o controle de sin- 
tetizadores internos de som, como é o 
caso do TRS-Color, do Spectrum, do 
MSX e do TK-2000. 

Os micros compatíveis com a linha 
TRS-80 não contam com esse recurso, 
tão simples de usar. Mas isso não quer 
dizer que seja impossível programar 
efeitos sonoros e musicais nessas máqui- 
nas. Conhecendo alguns truques em lin- 
guagem Assembler, é fácil escrever pe- 
quenas rotinas para adicionar som aos 
seus programas. 





FAÇA UM SOM 


Fazer o programa não é tudo, porém. 
Normalmente, os microcomputadores 
da linha TRS-80 não têm alto-falante in- 
terno, como ocorre com o Apple, e nem 
possuem linha de conexão para o alto- 
falante da TV ou do monitor, como é 
o caso do MSX e do TK-2000. 

Por essa razão, se quisermos produ- 
zir sons nesse micro, devemos utilizar a 
saída para o gravador cassete. Esse re- 
curso vale também para os modelos da 
linha TRS-80 que dispõem de alto- 
falante interno (por exemplo, o Proló- 
gica CP-500), ligado em paralelo com a 
saida para cassete. 


PORTA DE SAÍDA 





Como é possível produzir efeitos so- 
noros numa saída desse tipo? 

Um gravador de áudio é capaz de re- 
gistrar apenas sons na faixa audível (en- 
tre 200 e 10.000 Hz, com os valores má- 
ximo e mínimo dependendo da qualida- 
de do aparelho). Ora, uma interface es- 
pecial na saída para o gravador trans- 
forma os impulsos binários (0 e 1), que 
constituem a “linguagem” interna do 
computador, em ondas elétricas com 





fregiiência compatível. Em outras pala- 
vras, se você colocar uma fita gravada 
com um programa de computador para 
escutar, ouvirá uma “'sinfonia”” musical 
caótica, que corresponde aos sinais en- 
viados pelo computador. 

Essa interface de conversão digital- 
analógica está conectada internamente 
a uma porta do computador. 

Uma porta é um canal de comunica- 
ção entre o microprocessador e o mun- 
do externo. Em geral, uma porta faz a 
comunicação nos dois sentidos (entra- 
da e saída), mas muitos micros usam de- 
terminadas portas só para um tipo de 
operação. É o caso da porta para gra- 
vador cassete, que é apenas de saída. 

Em conseqiiência, tudo o que neces- 
sitamos fazer para ouvir sons produzi- 
dos pela porta do gravador cassete é co- 
nectar o plugue do fio que normalmen- 
te é utilizado para gravar programas e 
dados (e que é chamado de AUX ou 
MIC) a um sistema de som, dotado de 
amplificador e alto-falante. 

'Quem tem um microcomputador da 
linha TRS-80, ou compatível, já dota- 
do de alto-falante interno, não precisa 
nem mesmo tomar essas medidas. 


SONS POR SOFTWARE 


Para acionar uma porta de saída, 
usamos a instrução OUT, em linguagem 
Assembler, que se encarrega de enviar 
um byte para essa porta. 

Para gerar sons com a instrução 
OUT, recorremos à velocidade do códi- 
go de máquina. Tudo o que é preciso fa- 
zer, neste caso, é movimentar alterna- 
damente o cone do alto-falante para fo- 
ra e para dentro. Se fizermos isso uma 
vez, produziremos um clique do tipo que 
costuma ocorrer quando ligamos um 
aparelho de som. O truque consiste em 
repetir a operação seguidas vezes, e de 
modo bastante rápido. Se os movimen- 
tos forem suficientemente velozes, a su- 
cessão de cliques vai parecer um zum- 
bido. Quanto mais acelerado for o mo- 
vimento de vaivém do cone, mais agu- 
do será o som obtido. 

Para escrever um programa destina- 
do a criar qualquer tipo de efeito sono- 
ro, é necessário que se conheçam alguns 


O TRS-80 não conta com comandos para 
a produção de efeitos sonoros. 

Dois pequenos programas em código de 
máquina, porém, permitem a 

criação de diversos sons nesse micro. 


fatos básicos sobre a porta do gravador 
do micro TRS-80: 


e A porta de saída do gravador tem o 
endereço 255 (FF em hexadecimal). 

* Apenas o primeiro e o segundo bits do 
byte enviado à porta de saída são usa- 
dos pelalinterface de conversão. O bit 
zero determina a saída de um impulso 
de som, ao passo que o bit um controla 
o motor do gravador. 

e Quando o bit zero da porta é iguala- 
do a 1, ocorre um impulso audível po- 
sitivo na linha AUX ou MIC do grava- 
dor. Quando o bit zero é igualado a 0, 
ocorre um impulso negativo. 

Portanto, para conseguir uma apro- 
ximação de uma onda sinusoidal (tom 
puro de uma certa frequência) na porta 
de saída, o software deve fazer o seguin- 
te: um impulso positivo é enviado, e um 
pequeno período de espera é introduzi- 
do. Em seguida, um impulso negativo 
é enviado, e novo período de espera de- 
ve ocorrer. 

Ao ser aumentado o periodo de es- 
pera, a frequência do som gerado sofre- 
rá uma diminuição; se, ao contrário, es- 
se período for reduzido, a frequência 
obtida será incrementada. 

Para produzir um ruído ou qualquer 
outro efeito sonoro diferente, basta va- 
riar os dois intervalos de espera segun- 
do algum padrão (ou, então, aleatoria- 
mente: com isso conseguiremos o cha- 
mado “ruído branco”, semelhante ao 
chiado de um rádio). 


“TONS PUROS 





Apresentamos a seguir uma sub- 
rotina em linguagem de máquina que 
possibilita a produção de tons puros (bi- 
pes), com frequência e duração indivi- 
dualmente controláveis. 

Para facilitar o uso dessa rotina por 
programas em BASIC, a sub-rotina é in- 
teiramente realocável, e é colocada em 
uma parte protegida da memória por 
uma rotina de inicialização, em BASIC, 
que precisa ser chamada apenas uma 
vez. Uma segunda rotina, também em 
BASIC, invoca a sub-rotina em código 
de máquina, por meio do comando 
USR. 

É possível armazenar a rotina em có- 











digo de máquina em uma parte protegi- 
da da memória. Para isso, reinicialize o 
computador e forneça o limite mínimo 
da memória protegida quando ele apre- 
sentar na tela a questão “MEM USA- 
DA?” ou ''MEMSIZE?"". No exemplo a 
seguir, imaginamos que o computador 
tem 32Kbytes, e fixamos o limite mini- 
mo da memória; assim, a rotina passa- 
rá a ser armazenada na locação 49001. 
Para usar outro limite de memória, al- 
tere o valor da variável IM na linha 1010 
do programa de inicialização. O valor 
sugerido para um computador com 
48Kbytes de RAM seria 65000. 

A versão aqui apresentada funciona 
em microcomputadores da linha TRS-80 
com BASIC Nível II (para cassete): 


1000 ' ROTINA DE INICIALIZACAO 
1010 IM=49000 

1020 FOR I=1 TO 35 

1030 READ N:POKE IM+I,N 

1040 NEXT N 

1050 DATA 205,127,10,14,255,6' 
1060 DATA 1;237,65,17,29,0,27. 
1070 DATA 122,179,32,251,6,2, 
1080 DATA 237.,65,17,29,0,27 
1090 DATA 122,179,32,251,43 
1100 DATA 124,181,32,227,201 
1110 POKE 16527, INT(IM/256) : 
POKE 16526, IM-INT(IM/256)*256+1 
1120 RETURN 


A rotina a ser chamada no momento 
de produção do som é assim: 


2000 ' SUBROTINA PARA SOM 

2010 CY=FO*DR:N=29483/FQ 

2020 POKE IM+11,N:POKE IM+23,N 
2030 I=USR (CY) : RETURN 


Note que a rotina exige dois argu- 
mentos, que devem ser fornecidos pelo 
programa que a chamou: DR é a dura- 
ção, em segundos, eFQ, a frequência do 
som, em hertz (ciclos por segundo). 
Apresentamos a seguir um pequeno pro- 
grama de teste, que exemplifica a ma- 
neira de usar as rotinas anteriores. 


10 ' PROGRAMA DE TESTE 
20 GOSUB 1000 :'INICIALIZACAO 
30 CLS: INPUT"DURACAO (8)":;DR 
40 INPUT"FREQUENCIA (HZ)";FQ 
50 GOSUB 2000:GoTo 30 


Para rodar o programa em micros 
com Disk BASIC (para disquete), faça 
as seguintes modificações: 


MBRBRA BE Do Do 0 comovemiauna so 


PRODUZA SONS NO TRS-80 
INTERFACE DE CONVERSÃO 

A PORTA DE SAÍDA 
À INSTRUÇÃO OUT 
“TONS MUSICAIS 





1110 DEFUSRO=IM+1 
2040 I=USRO (CY) : RETURN 


Os programas apresentados funcio- 
nam da seguinte maneira: a rotina de 
inicialização lê os códigos decimais cor- 
respondentes à rotina em linguagem de 
máquina, e os coloca na memória pro- 
tegida por meio do comando POKE. 

Antes de terminar, a rotina define o 
endereço de partida da rotina de máqui- 
na, que é, então, comunicado ao inter- 
pretador (par de apontadores 16526 e 
16527, na versão destinada a gravador 
cassete, e DEFUSR, na versão adapta- 
da para disco). 

Na pequena rotina de produção de 
sons, inicialmente é calculado o núme- 
ro total de ciclos (positivo/negativo) ne- 
cessário para produzir a duração pedi- 
da. Esse valor é armazenado na variá- 
vel CY, que é passada à rotina USR por 
meio de seu argumento. 

A duração total da pausa a ser exe- 
cutada entre os ciclos (N) é também cal- 
culada e fornecida à rotina diretamen- 
te, mediante dois comandos POKE, nos 
pontos onde é necessária. 

A última linha da rotina em lingua- 
gem BASIC se encarrega de chamar a 
rotina em código de máquina, e retor- 
na depois de ser executada. 


“TIROS, EXPLOSÕES E CHIADOS 





O próximo programa funciona se- 
gundo o mesmo princípio que o ante- 
rior, SÓ que o intervalo entre as fases po- 
sitiva e negativa da onda sonora é alte- 
rado aleatoriamente a cada instante. Ao 
invés de um som puro (frequência cons- 
tante em toda a duração), esse tipo de 
intervalo produz um impulso de “rui- 
do branco”, que tem como caracteris- 
tica uma mistura de todas as frequên- 
cias (daí seu nome, em analogia com a 
cor branca). Portanto, resta ao softwa- 
re controlar apenas a duração total do 
impulso sonoro. Durações muito curtas 
produzem um efeito sonoro semelhan- 
te a um tiro; durações um pouco maio- 
res, algo semelhante a uma explosão, e 
durações muito longas, um chiado que 
lembra a estática de rádio (ou, se você 
quiser, o barulho produzido pelo reator 


o ROTINA DE PRODUÇÃO 
: DE SONS 
E PROGRAMA DE TESTE 


E COMO VARIAR À FREQUÊNCIA 
[o TIROS E EXPLOSÕES 


de um avião a jato). Todos esses efeitos 
têm suas aplicações em programas de 
jogos. 


FUNCIONAMENTO DA ROTINA 





Da mesma maneira que a anterior, a 
sub-rotina é inteiramente realocável, e 
é colocada em uma parte protegida da 
memória por uma rotina de inicializa- 
ção em BASIC, que precisa ser chama- 
da apenas uma vez. Uma segunda roti- 
na, também em BASIC, invoca a sub- 
rotina em código de máquina, por inter- 
médio do comando USR. 

A versão a seguir destina-se a micro- 
computadores da linha TRS-80 com 
BASIC Nível II (para cassete). A rotina 
de inicialização é assim: 


1000 '* ROTINA DE INICIALIZACAO 
1010 1IR=49000 

1020 FOR I=1 TO 26 

1030 READ N:POKE IBR+I,N 

1040 NEXT N 

1050 DATA 205,127,10,62,1,211 
1060 DATA 255,237,95,87,71,16 
1870 DATA 254,62,2,211,255,66 
1080 DATA 16,254,43,124,181,32 
1090 DATA 234,201 

JA10 POKE 16527, INT(IR/256) : 
POKE 16526, IR-INT(IR/256)*256+1 
1120 RETURN 


A rotina de produção de sons: 


2000 ' SUBROTINA PARA RUIDO 
2010 N=DR*1000 
2020 I=USR(N) : RETURN 


E um pequeno programa de teste: 


10 ' PROGRAMA DE TESTE 
20 GOSUB 1000 :' INICIALIZACAO 
30 CLS: INPUT"DURACAO (5)”;DR 
40 GOSUB 2000:GoToO 30 


Finalmente, para rodar o programa 
em micros com Disk BASIC (para dis- 
quete), faça as seguintes modificações: 


1110 DEFUSRO=IR+1 
2040 I=USRO(N) : RETURN 


Se você quiser usar as duas rotinas em 
linguagem de máquina no mesmo pro- 
grama, altere os endereços de partida 
IM e IR, de modo a evitar superposição 
(por exemplo, se IM= 49000, faça 
IR = 49036, no mínimo). 











| | | 
| 


JOGOS DE GUERRA: 
O MAPA DA BATALHA 






No primeiro artigo desta série sobre 
jogos de guerra, criamos os blocos grá- 
ficos que irão representar as unidades 
militares no campo de batalha. Esses 
simbolos serão colocados e movidos em 
um mapa, para que possamos acompa- 
nhar o desenrolar da disputa e planejar 
nossa estratégia. 


| O MAPA 


Capa e Espada terá uma matriz para 
representar o mapa. Este permanecerá 
em exibição durante todo o jogo, ocu- 
pando a maior parte do video. 

Como o mapa está sempre na tela, 
poderíamos dispensar a matriz, pois a 
memória de vídeo conterá todas as in- 
formações a respeito do mapa. Convém, 
no entanto, manter esses dados organi- 
zados em uma matriz, mesmo às custas 
de grande quantidade de memória. Se- 
rá muito mais fácil obter e modificar as 
informações na matriz do que na memó- 
ria de vídeo. 

A matriz terá tantos elementos quan- 
tas forem as posições do mapa. Os ma- 
pas dos micros das linhas MSX, TRS- 
Color e Spectrum têm trinta por dezes- 
seis posições; os do Apple e do TK-2000, 
vinte por dezoito. 





AS TROPAS | 


Para controlar a posição das tropas 
no mapa e verificar se há obstáculos em 
seu caminho quando as movimentamos, 
precisamos de uma segunda matriz. Es- 
ta não só conterá a posição de cada uma 
das unidades, mas, também, toda e 
qualquer informação referente a elas. 

Em Capa e Espada, a matriz da tro- 
pa conterá ainda informações relaciona- 
das aos combates, ao movimento etc. O 
conteúdo de uma matriz desse tipo de- 
pende da natureza do jogo. Você terá 
melhores informações sobre isso à me- 
dida que formos ampliando o programa. 


DIMENSIONAMENTO DAS MATRIZES 





As linhas seguintes dimensionam as 
matrizes do mapa e da tropa. 


350 DIM m(16,30) 
355 DIM T(16,9) 


uy 


350 DIM M(16,30) 
Jão DIM TAIS.B) 


Dao 


350 
360 


350 DIM M(16,30) 
355 DIM T(16,9) 


DIM M(18,20) 
DIM T(16,9) 


Os valores contidos na matriz do ma- 
pa asseguram que ele tenha o tamanho 
da tela. A matriz da tropa, por sua vez, 
é dimensionada de modo que possa con- 
ter nove tipos de informação a respeito 
de cada uma das dezesseis unidades que 
estão em combate. 


COMO PREENCHER O MAPA 


O próximo passo consiste em deter- 
minar os vários tipos de terreno que 
compõem a área mapeada, bem como 
a posição inicial de cada uma das uni- 
dades. Poderíamos ter optado por um 
mapa fixo — o que seria muito impor- 
tante se quiséssemos reproduzir uma ba- 
talha famosa. Porém, é bem provável 
que os jogadores prefiram alterar o cam- 
po de batalha a cada jogo. Para fazê-lo 
sem complicações, utiliza-se o gerador 
de números aleatórios do micro. 

A definição do terreno poderia 
resumir-se a uma simples escolha ao aca- 
so entre os tipos possíveis. Porém, a dis- 
tribuição de florestas e montanhas ge- 
ralmente não é um simples fruto do aca- 
so. Seria interessante que o programa 
pudesse reproduzir um padrão mais pró- 
ximo do real, concentrando montanhas 
ou florestas em certas áreas. 

Durante o planejamento do mapa de 


Chegou a hora de desenhar o mapa 

do campo de batalha. Vamos preenchê-lo 
com vilas, florestas e montanhas, 

para, depois, colocar as forças 

inimigas em suas posições iniciais. 


um jogo de guerra, é importante tam- 
bém considerar o tipo de terreno no qual 
esperamos que se dê a ação. Em Capa 
e Espada, por exemplo, pretende-se si- 
mular uma guerra medieval, com a 
maioria das batalhas sendo travadas em 
campo aberto. Nesse caso, não é inte- 
ressante ter montanhas e florestas demais. 


A ESCOLHA DO TERRENO 





A rotina que listamos a seguir é es- 
sencialmente aleatória, embora haja um 
certo controle sobre a seleção, o que aju- 
da a dar uma aparência de maior reali- 
dade ao mapa. 


20 DEF EN r(x)=INT (BND*x)+1 


800 REM Escolhe terreno 
810 LET BR=FN r(50) 

B20 IF R>5 THEN LET R=0 
B30 IF R>4 THEN LET B=3: 
RETURN 

B40 IF R>1 THEN LET R=2 
850 RETURN 


ny 


L5 R=BND(-TIME) 

20 DEF EN R(X)=INT(AND(1)*X)+1 
800 REM TERRENO 

810 R=FEN R(50) 

B20 IF R>5 THEN R=0 

B30 TF R>4 THEN B=3:RETURN 

840 IF R>1 THEN R=2 

850 RETURN 


Lélio] 


20 DEF FN R(X) = 
1) *X) + 1 

B00 REM TERRENO 
810 R = EN R(50) 
820 IF R > 5 THEN BR = 
830 IF AR > 4 THENR 
N 
840 
850 


800 


INT ( AND ( 


Õ 


3: RETUR 


NI 
ba 


IF R > 1 THEN R 
RETURN 


REM ESCOLHE O TERRENO 














“MATRIZES DO MAPA HR COMO COLOCAR 
MATRIZES DAS TROPAS OS BLOCOS GRÁFICOS NA TELA 
“COMO PREENCHER O MAPA E MOLDURA PARA O MAPA 
POSICIONAMENTO E FATORES QUE AFETAM 

DAS UNIDADES O MOVIMENTO DAS FORÇAS 





PROGRAMACAO DE JOGOS 





E ai 


a, 


y de 
ja '' 











40 PROGRAMAÇÃO DEJOGOS 40 


R=RND (50) 

IF R>5 THEN R=0 

IF R>4 THEN R=3:RETURN 
IF R>1l THEN R=2 

RETURN 


810 
B20 
830 
B40 
850 


O programa utiliza apenas números 
aleatórios inteiros. Como o Apple, o 
TK-2000, o Spectrum e o MSX não têm 
uma função como a RND, a linha 20 
DEFine uma Função para isto. 

Em todos os programas, um núme- 
ro aleatório inteiro entre 1 e 50 é cria- 
do. A rotina de “escolha de terreno" se- 
leciona um valor para a variável R de 
acordo com o número criado. Se esse 
número for maior que 5, R valerá 0, có- 
digo de campo aberto. Se for 5, R será 
3, código de montanha; se for 2, 3 ou 
4, Rserá 2, valor que representa flores- 
ta; e, se for 1, R fica valendo 1, código 
de vila. 


CONTROLANDO O ACASO | 





A rotina de “escolha de terreno” é 
chamada para definir cada posição da 
matriz do mapa ao longo de uma de suas 
dimensões. Como foi mencionado an- 
teriormente, não é desejável que a dis- 
tribuição seja totalmente aleatória. A 
rotina que se segue impõe um certo pa- 
drão à distribuição dos tipos de terreno, 
tornando o mapa mais real. 


370 

470 

4B0 

LET 

490 
500 
210 
520 
25 
1) 
530 LET m(i,5)=R 

540 IF R=3 AND 5<30 THEN 

m(1i,)+1)=4 

550 IF m(i,3)<>0 AND m(i,5)<>3 

THEN PRINT AT i,5;CHRS (m(i,j5 
)J+143) 

555 IF m(i,5)=3 AND 5<>30 THEN 
PRINT AT i,j;CHARS 146;AT i,5+ 
À; CHARS 147 

560 NEXT 35 

970 NEXT à 

580 GOSUB 720 

290 FOR 1=1 TO 8 

600 FOR 3=1 TO 2: LET T(i,5)=2 
LET T(1+8,3)=2: NEXT 5 

610 FOR 3=3 TO 4: READ T(1,5): 
LET T(1i+8,3)=T(1i,5): NEXT 5 

620 READ mr 

630 FOR 53=0 TO B STEP 8 

640 LET T(i+5,5)=mr+EN r(2) 
650 LET T(1+3,6)=(FN r(100)*10 


LET 18="NOSL" 

REM Cria 

FOR i=l TO 16: GOSUB 800: 
m(i,1)=R: NEXT à 

FOR 1=1 TO 16 

FOR )J=2 TO 30 

LET 9=FN r(10) 

IF s<8 THEN GOSUB B0O0 

IF s>=8 THEN LET R=m(i,j5j- 


LET 


J+10 

660 LET T(i+5j,7)=T(i+5,6) 
670 NEXT 5 

680 LET T(i,8)=15 

690 LET T(i+8,8)=1 

700 NEXT à 

?10 RETURN 


370 IS9="NWSE” 

470 REM CRIAÇÃO 

480 FOR I=1l TO 16:GOSUB 800:M(I 
+1)=R:NEXT 1 

490 FOR I=1l TO 16 

500 FOR J=2 TO 30 

510 S8=FN R(10) 

520 IF S<B THEN GOSUB B00 

525 IF S>=8 THEN R=M(I,J-1) 

530 M(I,J)=A 

540 IF R=3 AND J<30 THEN M(I,J+ 
1)=4 

550 IF M(I,]J)<>0 AND M(I,J)<>3 

THEN LOCATE J,I:PRINT CHRS(MII, 
J)+223) 

555 IF M(1I,J)=3 AND J<> 30 THEN 
LOCATE J,1I:PRINT CHBS (226) +CHR 


S(227); 
560 NEXT J,I 
580 GOSUB 720 


590 FOR 1I=1 TO 8 

600 FOR J=1 TO 2:T(I,J)=2:T(I+8 
J)=2:NEXT J 

610 FOR J=3 TO 4:READ T(I,J):T( 
1+8,J)=T(T,J) :NEXT q 

620 READ MR 

630 FOR J=0 TO B STEP 8 

640 T(I+J,5) =MB+FN R(2) 

650 T(1+J,6)=(FN R(100)*10)+10 

660 T(I+],7)=T(1+J,6) 

670 NEXT J 

6BU T(I,8)=15 

690 T(I+8,8)=1 

00 NEXT I 

710 RETURN 


370 I8 = "NOSL* 

470 REM CRIACAO 

480 FOR I=1TOlB: 
MIL, 1) = R: NEXT 
490 FOR I =-17TOlB 
500 FOR J = 1TOZ0 
510 8 = PFN R(10) 

520 IF 8 < B THEN GOSUB 800 
525 IF S> = 8 THENR=M(I,J 
E Me. 

530 M(I,J) = R 


GOSUB 800 


540 IF R = 3 ANDOJ<Z0THENM 
(ILI.J + 1) = 4 

550 IF M(I,J) < > 0 ANDM(I,J 
) < > 3 THENYO=I:Xo=gJ:N=ãM 
(L,J) - Il: GOSUB 10000 

560 TF M(I,J) = 3 ANDJ< >2 
O THEN Y = I:X = J:N = 2: GOSUB 


10000:X = J + 1:N = 3: GOSUB 1 
0000 
970 NEXT.J,I 
5BO  GOSUB 720 
590 FORI =1TOB 











JIN R A E O Ga 0 


600 FOR J = 
T(1I + 8,)) = 2: NEXT J 

610 FOR J = 3 TO 4: READ T(I,J 
J:T(I + B,J) = T(I,J): NEXT J 
620 READ MR 


1 TO 2:T(l,)) = 2: 


630 FOR J = O TO B STEP OB 

640 T(I + J,5) = MR + EN R(2) 
650 T(I + J,6) = ( FN R(100) * 
10) + 10 

660 T(I + J,7) = T(I + J,6) 
670 NEXT J 

680 T(1,8) = 18 

690 T(I + 8,8) = 1 

700 NEXT I 


710 RETURN 

10000 X =X * 2 - 2:N=N*Z: 

FOR W = O TO 1l:X =X + W:N=N 

+ W: FOR V = 0 TO 7 

10010 POKE T+ (TT -8B*(T>7 
) =-8*(7>15))*2128+40* 

2>7) +40 "4 (1225) *Kk*rA 
024 * VU, PEEK (EE + N * 8 + V) 

10020 NEXT V,W: RETURN 





370 18="NOSL" 
470 REM CRIAR 
480 FOR I=1l TO 
(1) =R:NEKT I 
490 FOR I=1l TO 16 

500 FOR J=2 TO 30 

510 S=RND(10) 

520 IF S<8 THEN GOSUB 800 

525 IF 8>=8 THEN R=M(I,J-1) 

530 M(I,J)=R 

540 IF R=3 AND J<30 THEN M(I,J+ 
1) =4 

550 IF M(I,J)<>O AND M(I,J)<>3 
THEN LINE (J*B,1*8)-(J*8+7,1*8B+ 
7), PRESET,BF:DRAW"BM"+STRS (J*8) 
+", "+STRS (1*8) +UCS (M(I,J)) 

555 IF M(1,J)=3 AND J<>30 THEN 
DRAW" BM" +STRS (J*8)+","+STRS(I*8B 
J+UCS (3) +"BM"+STRS ((J+1)*8)+",” 
+STRS (1*8) +UCS (4) 

560 NEXT J,1 

580 GOSUB 720 

590 FOR I=1 TO 8 

600 FOR J=1 TO 2:T(I,J)=2:T(1+8 
J)=2:NEXT J 

610 FOR J=3 TO 4:READ T(I,J):T( 
I+B,J)=T(I,J):NEXT J 

620 READ MR 

630 FOR J=0 TO B STEP B 

640 T(1+J,5)=MR+RND (2) 

650 T(1I+J,6)=(RND(100)*10)+10 
660 T(I+J,7)=T(I+J,6) 

670 NEXT J 

680 T(1,8)=15 

690 T(I+8B,8)=1 

700 NEXT I 

710 RETURN 


16:GOSUB B00:M(I 


A rotina gera um novo número alea- 
tório, S, para cada elemento restante da 
matriz. O valor de 8, selecionado na li- 
nha 510, varia de 1 a 10. A linha 520 faz 
com que, em 70% das vezes, o novo blo- 
co de terreno seja escolhido ao acaso — 
se S<8, o programa chama a sub-rotina 


de escolha de terreno. Os 30% restan- 
tes serão constituídos de blocos iguais 
aos vizinhos da esquerda. Esse procedi- 
mento tem como objetivo criar grupos 
de blocos no mapa. As linhas que vão 
de 550 a 570 colocam os blocos na tela. 





POSICIONAMENTO DAS TROPAS 


As posições dos combatentes são ar- 
mazenadas nas matrizes das tropas co- 
mo pares de coordenadas — horizontais 
e verticais. 

Inicialmente, os adversários ficam 
em extremos opostos da tela. No cam- 
po de Capa e Espada, o jogador come- 
ça no extremo sul (margem inferior do 
mapa), e o computador, no norte (topo 
da tela). 

Portanto, a coordenada vertical já es- 
tá previamente determinada. 

A coordenada horizontal precisa ser 
selecionada. Assim como para a defini- 
ção do tipo de terreno, é interessante 
que haja um elemento de acaso nessa es- 
colha. Contudo, algumas restrições de- 
vem ser feitas — precisamos impedir, 
por exemplo, que duas unidades ocupem 
o mesmo espaço. 

A rotina que listamos a seguir sele- 
ciona a posição inicial de cada unidade, 
de ambos os lados. Em primeiro lugar, 
as tropas são selecionadas ao acaso. De- 
pois, o mapa é dividido verticalmente 
em oito colunas. Cada coluna representa 
os limites dentro dos quais as unidades 
serão colocadas. A posição definitiva de 
todas elas é, então, selecionada de acor- 
do com os limites da coluna. 


860 REM Digpoe tropas 
B70 INK 2 
B80 FOR m=1 TO 2 
B90 LET s=1l: LET r=l 
900 FOR k=1 TO 8 
910 REM Loop 
920 LET s=FN r(8*m) 
930 IF T(s,9)<>0 THEN GOTO 
910 
940 LET r=FN r(4)+r 
950 LET r=r-INT (r/30) 
960 LET T(s,9)=r 
970 INK m 
980 PRINT AT T(s,8).T(B,9);uS( 
8) 
990 NEXT k 
1000 NEXT m 
1010 RETURN 


na 


B60 REM TROPAS 
880 FOR M=1 TO 2 


B90 
900 
920 
930 
940 
950 


S=1:R=1 

FOR K=1 TO 8 

S=FN R(B*M) 

IF T(S,9)<>0 THEN 920 
R=FN R(4)+R 
R=R-INT(R/30) 

960 T(S,9)=R 

980 LOCATE T(5,9),T(5,8): PRINT 
CHRS (U(S)) 

990 NEXT K,M 

1010 RETURN 


Dao 





B60 REM DISTRIBUICAO 

880 FORM = 1 TOz 

890 58 = 1:R = 1 

900 FOR K = 1 TOB 

920 8 = FNR(B * M) 

930 IF T(S,9) < > O THEN 920 
940 BR = EN R(3) + R 

950 R = R - INT (R / 20) 

960 T(S,9) = R 

980 Y = T(S,8):X = T(S,9):N = 


VAL ( MIDS (U$S,S - (M - 1) * 8, 
1)) + (M - 1) * 5: GOSUB 10000 
990 NEXT K,M 


1010 RETURN 


860 
870 
880 
B90 
900 
910 
920 
930 
940 
950 
960 


REM DISPOE TROPAS 

COLOR 2 

FOR M=1 TO 2 

8=1:R=1 

FOR K=1 TO B 

REM 

8=RND (8*M) 

IF T(8,9)<>0 THEN 910 

R=RND (4) +R 

R=R-INT(R/30) 

T(S,9)=R 

970 COLOR M:IF M=1 THEN COLOR 3 
980 DRAW"BM"+STRS(T(S,9)*8)+",” 
+STRS (T(S,8)*8) :UU=VAL (MIDS (US, 
S,1)) :AS=UCS (UU) :GOSUB 3000 
990 NEXT K 

1000 NEXT M 

1010 RETURN 


4; 

Como as oito unidades são escolhi- 
das ao acaso, a posição inicial de cada 
uma varia e, assim, cada novo jogo é di- 
ferente do anterior. 

Os dois exércitos estão armazenados 
em uma só matriz. Por isso, a mesma 
rotina pode ser usada para escolher a 
posição inicial de todas as tropas, bas- 
tando, apenas, um laço FOR... NEXT 
(linhas 880 e 1000). O laço também faz 
com que os dois exércitos apareçam em 
cores diferentes. 





ARMAS | 


Uma vez determinadas as posições 
iniciais das unidades, elas devem ser co- 
locadas no vídeo. 














Capa e Espada: mapa do campo de batalha no Spectrum. 


410 LET US=CHRS 148+CHRS 149+ 
CHRS 150+CHRS 150+CHARS 151+ 
CHRS 151+CHRS 152+CHRS 152: 
LET US=US+US 


410 U(1)=228:U(2)=229:U(3)=230: 


U(4)=230:U(5)=231:U(6)=231:U(7) 
=232:U(8)=232 


Lab) cd) 


410 US = "45667788" 


410 US="65778B899" :US=US+US 

Na linha 410 definimos um cordão 
US para armazenar os códigos dos ca- 
racteres que representam cada unidade. 
No caso do MSX, utilizamos uma va- 
riável indexada U( ). 


MOLDURA 





A tela fica mais bonita — e menos 
confusa — se fizermos uma moldura pa- 
ra o campo de batalha. 


720 REM Borda Decorativa 
730 FOR 1=0 TO 16 


740 PRINT AT 1,0;CHABAS 150;AT à 
, 31;CHA$S 150 

750 NEXT à 

760 FOR 1=0 TO 31 

770 PRINT AT 0,i;CHRS 150;AT 
16,i;CHAS 150 

780 NEXT à 

790 RETURN 


io 


/20 REM BORDA 

730 FOR I=0 TO 31 

740 VPOKE BASE (5)+1,246 

750 VPOKE BASE (5)+I+544, 246 
760 NEXT I:FOR I=0 TO 574 STEP 
32 

770 VPOKE BASE (5)+1I,246 

780 VPORE BASE (5)+I-1, 246 

790 NEXT I:RETURN 


Dao 


720 REM BORDA 

730 FOR YY = O TO 19 STEP 19 
740 FOR XX = 1 TO 20 

750 N = 11:X = HX:Y = YY 

760 ]X = X*2-2:N=N*ã2Z: FO 

AW=0OTOIl:Xm=-X+NWN=N+ 

W: FOR V = 0 TO 7 

730 PORET+ (T+ 8*(7>7) 

"5 * (7 >15))*1220+ 40 *k% 
2 4) 440 * (7 215)+X+ 102% 

PEEK (E + N*B+UV) - 1 


780 NEXT V,W 
790 NEXT KX,YY: 


720 REM BORDA 


730 LINE (0,128)-(255,135),PRES 
ET,BF 


RETURN 


740 LINE(248,0)-(255,191),PRESE, 





T,BF:LINE(4,4)-(252,132),PSET,B 
790 RETURN 


Essa rotina simplesmente desenha, 
repetidas vezes; em torno do mapa, o 
símbolo utilizado para os lanceiros, só 
que em outra cor. 


MOBILIZAÇÃO DAS FORÇAS 





Agora que o mapa está preparado, 
veremos como os jogadores movem suas 
unidades. Toda a mobilização decorre 
de ordens — explicadas no próximo ar- 
tigo. Porém, antes que se possa comple- 
tar O movimento, é preciso definir vá- 
rios detalhes do jogo: 


e Distância máxima, em número de po- 
sições, que cada unidade pode atingir 
em um só movimento. Em Capa e Es- 
pada, a mobilidade de uma unidade de- 
pende apenas do peso de sua armadu- 
ra, mas, em outros jogos, fatores como 
moral, disciplina e cansaço, entre ou- 
tros, podem ser levados em conta. 


e Existência de vantagens e bônus. Em 
nosso programa, os bônus são dados 

apenas aos cavaleiros. Porém, é possi- 
vel destiná-los também a unidades que 
realizem determinadas ações — como 
subir uma ladeira ou transportar carga 
— ou, ainda, que possuam um coman- 
dante muito habilidoso. 


* Obstáculos ao movimento. O progra- 
mador deve decidir que tipo de influên- 
cia o terreno exerce sobre o movimento 
de tropas. Em nosso caso, todos os ter- 
renos, menos o campo aberto, dimi- 
nuem a distância máxima em uma uni- 
dade. Também é preciso verificar se há 
outra unidade no caminho. 


* A borda do mapa foi alcançada? 


Adicione mais esta rotina e o progra- 
ma poderá movimentar as tropas levan- 
do em conta todos esses fatores. 


1160 REM Move unidade 

1170 LET ox=T(b,8B): LET oy=tt(b, 

9) 

1175 LET z9="" 

1180 IF m(T(b,8),T(b,9))<>0 THE 

N LET z5S=CHAS (143+m(T(b,B),T( 

b,9))) 

1190 LET D=5-T(b,4) 

1200 IF b<3 OR b=9 OR b=10 THEN 
LET D=D+2 

1210 LET v=T(b,2)-1 

1215 LET up=0: LET al=v-2 





1220 IF v/2=(INT (Vv/2))=0 THEN 
LET up=v-l: LET al=0 
1230 REM Repeticao 


1240 LET nl=T(b,9)+al: LET np=T 
(b,B) +up 

1250 IF np<l THEN LET np=1 
1260 IF np>1l5 THEN LET np=15 
1270 IF nl<l THEN LET nl=1 
1280 IF nl>30 THEN LET nl=30 
1290 IF m(np,nl)>0 THEN LET D= 
D-1 

1300 FOR k=1 TO 8 


1310 IF (T(k,9)=nl AND T(k,8)=n 

p AND k<>b) THEN LET D=O 

1315 IF (T(k+8,9)=nl AND T(k+8, 

8)=np AND k+8<>b) THEN LET D=0 

1320 NEXT k 

1330 IF d>0 THEN LET T(b,9)=nl 
LET T(b,8)=np: LET D=D-1 

1340 IF D<>0 THEN GOTO 1230 


1350 INK O: PRINT AT ox,0y;Z5 
1360 INK cl: PRINT AT T(b,B),T( 
b.9) jus (l) 


1370 RETURN 


1160 REM MOVE 

1170 0X=T(B,8B) :07Y=T(B,9) 

1175 GB=32 
GH=223+M(T(B,8),T(B,9)) 

1190 D=5-T(B,4) 

1200 IF B<3 OR B=9 OR B=10 THEN 
D=D+2 

1210 V=T(B,2)-1 

1215 UP=0:AL=V-2 

1220 IF V/2-(INT(V/2))=0 THEN U 
P=V-1:AL=O 

1240 N1l=T(B,9)+AL:NP=T(B,B)+UP 
1250 IF NP<1l THEN NP=1 

1260 IF NP>15 THEN NP=15 

1270 IF N1I<1l THEN Nl=1 

1280 IF N1>30. THEN N1=30 

1290 IF M(NP,N1)>0 THEN D=D-1 
1300 FOR K=1 TO 8 

1310 IF (T(K,9)=N1 AND T(K,8)=N 
P AND K<>B) THEN D=0 

1315 IF (T(K+8B,9)=N1l AND T(K+8, 
8)=NP AND K+B<>B) THEN D=0 

1320 NEXT K 

1330 IF D>O THEN T(B,9)=NI:T(B, 

8) =NP:D=D-1 

1340 IF D<>0 THEN 1240 

1350 LOCATE 0Y,0X:PRINT CHRS (GH 


1360 LOCATE T(B,9).T(B,8):PRINT 
CHRS (U(I) +CL) 
1370 RETURN 


Lab J Lei] 


1160 REM MOVE 

1170 OX = T(B,8):0Y = T(B,9) 
1175 GH = 14 

1180 IF M(T(B,8),T(B,9)) < > 
O THEN GH = M(T(B,8B),T(B,9)) - 
1 

1190 D = 5 - T(B,4) 

1200 IF B<30RB=904B= 
10 THEN D = D+ 2 

1210 V = T(B,2) - 1 


1215 UP = 0:AL = V - 2 


1220 IFV/2- (INTHA(V/ 2)) 
= O THEN UP = V - 1L:AL = 0 
1240 N1 = T(B,9) + AL:NP = TÍ(B, 
B) + UP 

1250 IF NP < 1 THEN NP = 1 
1260 IF NP > 18 THEN NP = 18 
1270 IF N1l < O THEN NI = 1 
1280 IF N1l > 19 THEN N1l = 20 
1290 IF M(NP,N1) > O THEN D = 

ris “A 

1300 FOR K = 1 TOB 

1310 IF (T(K,9) = NI AND T(K, 


) = NP AND K < > B) THEN D 
1315 IF (T(K + 8,9) 


(K + 8,8) = NP AND K + 8 < 

) THEN D = O 

1320 NEXT K 

1330 IF D> O THEN T(B,9) = N1 
:T(B,8) = NP:D = D-1 

1340 IF D< > O THEN 1240 


1350 X = 07:Y = OX:N = GH: GOSU 
B 10000 


1360 X = T(B,9):Y = T(B,8):N = 

VAL ( MIDS (US,I - (1 >8)*8 
1)) + (I > 8) * 5: GOSUB 10000 
1370 RETURN 

1160 REM MOVE UNIDADE 

1170 OX=T(B,8):0Y=T(B,9) 

1175 Z2Z=0 

1180 IF M(T(B,8),T(B,9))<>0 THE 


N Z2=M(T(B,B),T(B,9)) 

1190 D=5-T(B,4) 

1200 IF B<3 OR B=9 OR B=10 THEN 
D=D+2 

1210 V=T(B,2)-1 

1215 UP=0:AL=V-2 

1220 IF (V/2)-INT(V/2)=0 THEN U 
P=V-1:AL=O 


1230 REM 

1240 NL=T(B,9)+AL:NP=T(B,8)+UP 
1250 IF NP<1 THEN NP=1 

1260 IF NP>15 THEN NP=15 

1270 IF NL<1 THEN NL=1 

1280 IF N>30 THEN NL=30 

1290 IF M(NP,NL)>0 THEN D=D-1 
1300 FOR K=1 TO B 

1310 IF (T(K,9)=NL AND T(K,8)=N 


P AND K<>B) THEN D=0 

1315 IF (T(K+B,9)=NL AND T(K+8, 
B)=NP AND K+8<>B) THEN D=0 

1320 NEXT K 

1330 IF D>0 THEN T(B,9)=NL:T(B, 
B)=NP:D=D-1 

1340 IF D<>0 THEN 1230 

1350 X9=0Y*8:Y9=0X*B:IF ZZ<>0 T 
HEN COLOR 4:LINE(X9,Y9)-(XK9+7,7 
9+7) , PRESET, BF :DRAW"BM"+STRS (X9 
)J+", "+STR$S (79) *+UCS (ZZ) ELSE LIN 
E (X9,79)-(X9+7,Y79+7), PRESET,BF 
1360 COLOR CL:DRAW"BM"+STRS(T(B 
19)*8)+","+STRS(T(B,8)*8) :UU=VA 
L (MIDS (US,1,1)):AS=UCS (UU) :GOSU 
B 3000 

1370 RETURN 


Os testes vão aumentar, reduzir ou 
impedir completamente a mobilidade 
das tropas. A rotina primeiro “lembra- 








| O que é uma simulação aleatória? 


Os jogos de simulação geralmente 
envolvem uma metodologia de cálculo 
específica para a área que está sendo | 
simulada. Na maioria das simulações is- 
so abrange tanto fórmulas matemáti- 
cas quanto regras de decisão [regras 
heurísticas). 

Entretanto, o jogo de simulação fi- 
ca muito previsível se não contiver al- 
gum elemento de probabilidade (ou se- 
ja, um sorteio ao acaso realizado para 


| uma equação matemática para uma re- 


gra de decisão). As situações passam 
a se repetir exatamente da mesma ma- 
neira frente a um determinado conjun- 
to de condições. 

Por isso, é importante usar o gera- 
dor interno de números aleatórios do | 
computador (funções RAND, RND etc.) | 
para sortear ao acaso o caminho a ser 
seguido ou o valor numérico de algum 
dado de simulação. 

São exemplos do que pode ser ge- 
rado em programas de simulação: 


e O nome de uma nave espacial e o de 
seu comandante. | 
e O número e a direção das saídas de 
uma câmara secreta em um jogo de 
aventuras. 

e A permanência do jogador na prisão, | 
no Jogo Imobiliário. | 





se” da posição anterior e do tipo de ter- 
reno que havia naquela posição. Em se- 
guida, calcula a direção e o deslocamen- 
to máximo. 

As linhas 1230 a 1340 formam um la- 
co que testa cada posição ao longo da 
trajetória da unidade, verificando se são 
ocupadas por tropas ou tipos de terre- 
no que afetam o movimento. De acor- 
do com o que esse laço encontrar, O des- 
locamento final é calculado. O laço se 
repete até que a distância ao ponto de 
destino seja zero. 

Após decidir sobre o deslocamento, 
a rotina coloca o símbolo do terreno ori- 
ginal na posição anterior e desenha a 
tropa na nova posição. 

As listagens aqui apresentadas ainda 
não poderão ser completamente testa- 
das. Como está, o programa apenas de- 
senha o mapa, sendo interrompido por 
uma mensagem de “falta de dados”. 
Com as rotinas do próximo artigo, que 
trata das ordens dadas pelo jogador, es- 
se problema deixará de existir. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





“numlivros 


NOVOS LANÇAMENTOS, 
NOVOS SUCESSOS. 


A FRATERNIDADE 


DA PEDRA 


- David Morrell | 
- Umpgrupo secreto, sob 
direção de um padre 

"armado, passa a agir 

' contra o terrorismo. 


Mas, será que violência 


“se combate com mais 


violência? Eis o dilema 
de Drew, agente da Lei 
envolvido com fatos e 
figuras do mundo real, 

| reendente 
do criador de bo. 


nu 
pena mu N 


“AVENTUREIROS 


E MILIONÁRIOS 
Clark Howard 


No romance do Texas, 

a saga da descoberta de 
um poço de petróleo e 

o drama de um casal que 
herda um lote de terra 
aparentemente sem valor 
e enfrenta com coragem 
os poderosos do lugar, 
até vencer. Uma vitória 
antes de tudo moral, 
numa história forte e 
envolvente, com realistas 
cenas de amor. 


Não perca também: A MISSÃO, de Robert Bolt, o livro do filme. 


“EDITORA BEST SELLER 


NexandraDeneh 


De 
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Da = y Rs too 
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CAÇADA SEM FIM 
Bryan Forbes 


Uma brilhante históriade 
espionagem envolvendo 
a KGB. Por que matar 
uma ex-espiã que já tinha 
sido desmascarada e | 
torturada tempos atrás? 
Um agente inglês, seu 
antigo amante, enfrenta 


um desafio: descobrir 
“porque ela foi morta... 


e por que agora! 








“Senão for o primeiro, 





| este vai ser o último 
* edefinitivo guia para 
o prazer que o leitor 
poderá seguir: um livro 
PODER que derruba mitos, faz 
Elia Eai sugestões provocantes e 
A | propõe técnicas ousadas 
Um líder sindical com para se chegar ao 
a volúpia do poder, supersexo, uma relação 
a luta pelos direitos intensa e especial entre 
dos trabalhadores, os casais, que não 
nos Estados Unidos, 


“exclui o romantismo. 


e sua manipulação 

por corruptos 

e oportunistas; o jogo. 
das ambições políticas. 
Admiravelmente escrito, 
um romance atualíssimo. 





